Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №17

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №17 Лабораторна робота №16. Тема: Побудова анімаційних зображень Мета: Вивчення і застосування методів побудови рухомих графічних об'єктів. Вивчити питання: Графічний режим. Константи модуля Graph. Стандартні графічні процедури і функції. Побудова графічних примітивів. Зображення і стилі. Стандартні засоби для роботи з відеосторінками. Мультиплікація. Вивід текстової інформації. Обробка помилок. Завдання до роботи: Скласти програму на мові Pascal для побудови об'єкта, який рухається за однією з траєкторій: y=x, по колу, за синусоїдою. Рух організувати зліва праворуч чи згори до низу та у зворотному напрямку. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. ХІД РОБОТИ uses crt,graph; var x,y,r,a,x0:integer; procedure Trg(x,y,d:integer); var ax,ay,bx,by,cx,cy:integer; begin ax:=x;ay:=y-d; bx:=x-round(d*cos(pi/6));by:=y+round(d*sin(pi/6)); cx:=x+round(d*cos(pi/6));cy:=y+round(d*sin(pi/6)); line(ax,ay,bx,by); line(bx,by,cx,cy); line(cx,cy,ax,ay); end; begin x:=0; initgraph(x,y,''); x0:=getmaxX div 2; r:=10; a:=100; x:=getmaxX div 2; y:=r; while y<getmaxY do begin x:=x0-round(sin(y*pi/180)*a); setcolor(14); Trg(x,y,r); delay(20); setcolor(0); Trg(x,y,r); y:=y+1; end; while y>0 do begin x:=x0-round(sin(y*pi/180)*a); setcolor(14); Trg(x,y,r); delay(20); setcolor(0); Trg(x,y,r); y:=y-1; end; setcolor(12); outtextXY(getmaxX div 2-50,getmaxY-30, 'end '); readln end. // ВИСНОВОК За допомогою даної лабораторної роботи я вивчила методи побудови рухомих графічних об'єктів та навчилася їх застосовувати.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини